home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / tools / gcc / gcc270_src.lha / gcc-2.7.0-amiga / config / mips / abi64.h next >
Encoding:
C/C++ Source or Header  |  1995-06-15  |  6.5 KB  |  177 lines
  1. /* Definitions of target machine for GNU compiler.  64 bit ABI support.
  2.    Copyright (C) 1994 Free Software Foundation, Inc.
  3.  
  4. This file is part of GNU CC.
  5.  
  6. GNU CC is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. GNU CC is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GNU CC; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 59 Temple Place - Suite 330,
  19. Boston, MA 02111-1307, USA.  */
  20.  
  21. /* Macros to implement the 64 bit ABI.  This file is meant to be included
  22.    after mips.h.  */
  23.  
  24. #undef ABI_64BIT
  25. #define ABI_64BIT 1
  26.  
  27. /* For Irix 6, -mips3 implies TARGET_LONG64.  */
  28. #undef TARGET_LONG64
  29. #define TARGET_LONG64        (target_flags & MASK_64BIT)
  30.  
  31. #undef CPP_PREDEFINES
  32. #define CPP_PREDEFINES \
  33.  "-Dunix -Dmips -Dsgi -Dhost_mips -DMIPSEB -D_MIPSEB -DSYSTYPE_SVR4 \
  34.   -D_SVR4_SOURCE -D_MODERN_C -D__DSO__ \
  35.   -Asystem(unix) -Asystem(svr4) -Acpu(mips) -Amachine(sgi)"
  36.  
  37. /* We must make -mips3 do what -mlong64 used to do.  */
  38. #undef CPP_SPEC
  39. #define CPP_SPEC "\
  40. %{!ansi:-D__EXTENSIONS__ -D_SGI_SOURCE -D_LONGLONG} \
  41. %{.cc:    -D_LANGUAGE_C_PLUS_PLUS} \
  42. %{.cxx:    -D_LANGUAGE_C_PLUS_PLUS} \
  43. %{.C:    -D_LANGUAGE_C_PLUS_PLUS} \
  44. %{.m:    -D_LANGUAGE_OBJECTIVE_C -D_LANGUAGE_C} \
  45. %{.S:    -D_LANGUAGE_ASSEMBLY %{!ansi:-DLANGUAGE_ASSEMBLY}} \
  46. %{.s:    -D_LANGUAGE_ASSEMBLY %{!ansi:-DLANGUAGE_ASSEMBLY}} \
  47. %{!.S:%{!.s: %{!.cc: %{!.cxx: %{!.C: %{!.m: -D_LANGUAGE_C %{!ansi:-DLANGUAGE_C}}}}}}}\
  48. %{mfp32: -D_MIPS_FPSET=16}%{!mfp32: -D_MIPS_FPSET=32} \
  49. %{mips1: -D_MIPS_ISA=_MIPS_ISA_MIPS1} \
  50. %{mips2: -D_MIPS_ISA=_MIPS_ISA_MIPS2} \
  51. %{mips3: -D_MIPS_ISA=_MIPS_ISA_MIPS3} \
  52. %{mips4: -D_MIPS_ISA=_MIPS_ISA_MIPS4} \
  53. %{!mips1: %{!mips2: %{!mips3: %{!mips4: -D_MIPS_ISA=_MIPS_ISA_MIPS4}}}} \
  54. %{mips1: -D_MIPS_SIM=_MIPS_SIM_ABI32}    \
  55. %{mips2: -D_MIPS_SIM=_MIPS_SIM_ABI32}    \
  56. %{mips3: -D_ABI64=3 -D_MIPS_SIM=_ABI64}    \
  57. %{mips4: -D_ABI64=3 -D_MIPS_SIM=_ABI64}    \
  58. %{!mips1: %{!mips2: %{!mips3: %{!mips4: -D_ABI64=3 -D_MIPS_SIM=_ABI64}}}}    \
  59. %{!mint64: -D_MIPS_SZINT=32}%{mint64: -D_MIPS_SZINT=64} \
  60. %{mips1: -D_MIPS_SZLONG=32}%{mips2: -D_MIPS_SZLONG=32}  \
  61. %{!mips1:%{!mips2: -D_MIPS_SZLONG=64}}            \
  62. %{mips1: -D_MIPS_SZPTR=32}%{mips2: -D_MIPS_SZPTR=32}    \
  63. %{mips3: -D_MIPS_SZPTR=64}%{mips4: -D_MIPS_SZPTR=64}    \
  64. %{!mips1: %{!mips2: %{!mips3: %{!mips4: -D_MIPS_SZPTR=64}}}}    \
  65. %{!mips1:%{!mips2: -D_COMPILER_VERSION=601}}        \
  66. %{mips1: -D__SIZE_TYPE__=unsigned\\ int -D__PTRDIFF_TYPE__=int} \
  67. %{mips2: -D__SIZE_TYPE__=unsigned\\ int -D__PTRDIFF_TYPE__=int} \
  68. %{!mips1:%{!mips2: -D__SIZE_TYPE__=long\\ unsigned\\ int -D__PTRDIFF_TYPE__=long\\ int}} \
  69. %{mips3:-U__mips -D__mips=3} \
  70. %{!mips1:%{!mips2:-U__mips -D__mips=4}}"
  71.  
  72. #undef EMPTY_FIELD_BOUNDARY
  73. #define EMPTY_FIELD_BOUNDARY    32
  74.  
  75. #undef STACK_BOUNDARY
  76. #define STACK_BOUNDARY 128
  77.  
  78. #undef MIPS_STACK_ALIGN
  79. #define MIPS_STACK_ALIGN(LOC) (((LOC)+15) & ~15)
  80.  
  81. #undef GP_ARG_LAST
  82. #define GP_ARG_LAST  (mips_isa < 3 ? GP_REG_FIRST + 7 : GP_REG_FIRST + 11)
  83. #undef FP_ARG_LAST
  84. #define FP_ARG_LAST  (mips_isa < 3 ? FP_REG_FIRST + 15 : FP_REG_FIRST + 19)
  85.  
  86. /* fp20-23 are now caller saved.  */
  87. #undef SUBTARGET_CONDITIONAL_REGISTER_USAGE
  88. #define SUBTARGET_CONDITIONAL_REGISTER_USAGE \
  89. {                                    \
  90.   if (mips_isa >= 3)                            \
  91.     {                                    \
  92.       int regno;                            \
  93.       for (regno = FP_REG_FIRST + 20; regno < FP_REG_FIRST + 24; regno++) \
  94.     call_used_regs[regno] = 1;                    \
  95.     }                                    \
  96. }
  97.  
  98. #undef MAX_ARGS_IN_REGISTERS
  99. #define MAX_ARGS_IN_REGISTERS    (mips_isa < 3 ? 4 : 8)
  100.  
  101. #undef REG_PARM_STACK_SPACE
  102. #define REG_PARM_STACK_SPARC(FNDECL)                      \
  103.   (mips_abi < 3                                 \
  104.    ? (MAX_ARGS_IN_REGISTERS*UNITS_PER_WORD) - FIRST_PARM_OFFSET (FNDECL) \
  105.    : 0)
  106.  
  107. #define FUNCTION_ARG_PADDING(MODE, TYPE)                \
  108.   (! BYTES_BIG_ENDIAN                            \
  109.    ? upward                                \
  110.    : (((MODE) == BLKmode                        \
  111.        ? ((TYPE) && TREE_CODE (TYPE_SIZE (TYPE)) == INTEGER_CST        \
  112.       && int_size_in_bytes (TYPE) < (PARM_BOUNDARY / BITS_PER_UNIT))\
  113.        : (GET_MODE_BITSIZE (MODE) < PARM_BOUNDARY            \
  114.       && (mips_isa < 3 || GET_MODE_CLASS (MODE) == MODE_INT)))    \
  115.       ? downward : upward))
  116.  
  117. extern struct rtx_def *type_dependent_reg ();
  118. #define TYPE_DEPENDENT_REG(REGNO, INDEX, TYPE) \
  119.   type_dependent_reg (REGNO, INDEX, TYPE)
  120.  
  121. #undef RETURN_IN_MEMORY
  122. #define RETURN_IN_MEMORY(TYPE)    \
  123.   (mips_isa < 3 ? TYPE_MODE (TYPE) == BLKmode : int_size_in_bytes (TYPE) > 16)
  124.  
  125. extern struct rtx_def *mips_function_value ();
  126. #undef FUNCTION_VALUE
  127. #define FUNCTION_VALUE(VALTYPE, FUNC)    mips_function_value (VALTYPE, FUNC)
  128.  
  129. /* For varargs, we must save the current argument, because it is the fake
  130.    argument va_alist, and will need to be converted to the real argument.
  131.    For stdarg, we do not need to save the current argument, because it
  132.    is a real argument.  */
  133. #define SETUP_INCOMING_VARARGS(CUM,MODE,TYPE,PRETEND_SIZE,NO_RTL)    \
  134. { if (mips_isa >= 3 && (CUM).arg_words < MAX_ARGS_IN_REGISTERS - 1)    \
  135.     {                                    \
  136.       PRETEND_SIZE                            \
  137.     = (MAX_ARGS_IN_REGISTERS - (CUM).arg_words            \
  138.        - ! current_function_varargs) * UNITS_PER_WORD;        \
  139.                                     \
  140.       if (! (NO_RTL))                            \
  141.     {                                \
  142.       rtx mem = gen_rtx (MEM, BLKmode,                \
  143.                  plus_constant (virtual_incoming_args_rtx,    \
  144.                         - PRETEND_SIZE));        \
  145.       /* va_arg is an array access in this case, which causes it to \
  146.          get MEM_IN_STRUCT_P set.  We must set it here so that the    \
  147.          insn scheduler won't assume that these stores can't     \
  148.          possibly overlap with the va_arg loads.  */        \
  149.       if (BYTES_BIG_ENDIAN)                        \
  150.         MEM_IN_STRUCT_P (mem) = 1;                    \
  151.       move_block_from_reg                        \
  152.         ((CUM).arg_words + GP_ARG_FIRST + ! current_function_varargs, \
  153.          mem,                            \
  154.          (MAX_ARGS_IN_REGISTERS - (CUM).arg_words            \
  155.           - ! current_function_varargs),                \
  156.          PRETEND_SIZE);                        \
  157.     }                                \
  158.     }                                    \
  159. }
  160.  
  161. #define STRICT_ARGUMENT_NAMING
  162.  
  163. /* ??? Unimplemented stuff follows.  */
  164.  
  165. /* ??? Add support for 16 byte/128 bit long doubles here when
  166.    mips_isa >= 3.  */
  167.  
  168. /* ??? Make main return zero if user did not specify return value.  */
  169.  
  170. /* ??? Add support for .interfaces section, so as to get linker warnings
  171.    when stdarg functions called without prototype in scope?  */
  172.  
  173. /* ??? Could optimize structure passing by putting the right register rtx
  174.    into the field decl, so that if we use the field, we can take the value from
  175.    a register instead of from memory.  */
  176.  
  177.